home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 14 / hacker14.iso / programacao / visual / perl.exe / {app} / Webroot / cgi-bin / input.pl < prev    next >
Encoding:
Text File  |  2003-01-11  |  521 b   |  20 lines
  1. # This script is not a cgi script, but demonstrates 
  2. # OptiPerl's debugger abilitily to debug scripts
  3. # that expect input from the user.
  4. #
  5. # When executing the lines with <STDIN>, notice that
  6. # the debugger will go in a "running" state while
  7. # waiting for input. Enter a string in the edit box
  8. # of the browser.
  9.  
  10. print "What is your name?\n\n\n";
  11. $name = <STDIN> ;
  12. chop ($name) ;
  13.  
  14. print "What is your company?\n\n\n\n" ;
  15. $company = <STDIN> ;
  16. chop ($company) ;
  17.  
  18. print "Hello, $name from $company!\n" ;
  19.  
  20.